home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / rex / time.bas < prev    next >
BASIC Source File  |  1994-12-10  |  1KB  |  30 lines
  1. 1000 '********************************************************************
  2. 1010 '*　  　   多分役に立つだろう機械語サブルーチン　Ｎｏ．２ 　        *
  3. 1020 '*                                                                  *
  4. 1030 '*     日付／時刻読み取りＢＩＯＳ呼び出し機械語サブルーチン使用例   *
  5. 1040 '*                                  94年12月11日（日） by 渡辺 良一 *
  6. 1050 '********************************************************************
  7. 1060 '
  8. 1070 '
  9. 1080 CLEAR ,,1024,,18,0
  10. 1090 LOADM"time.rex",0
  11. 1100 DEFINT A-Z
  12. 1110 DIM DI(4),Y$(6)
  13. 1120 AD&=VARPTR(DI(0))
  14. 1130 Y$(0)="日":Y$(1)="月":Y$(2)="火":Y$(3)="水"
  15. 1140 Y$(4)="木":Y$(5)="金":Y$(6)="土"
  16. 1150 COLOR 7,0:CLS
  17. 1160 PRINT"多分役に立つだろう機械語サブルーチン  Ｎｏ．２"
  18. 1170 PRINT"時計ＢＩＯＳを呼び出す機械語サブルーチン使用例"
  19. 1180 LOCATE 30,2:PRINT"94/12/11(日) by Ryoichi.w"
  20. 1190 WHILE INKEY$=""
  21. 1200   CALLM 0,&H14,AD&
  22. 1210   LOCATE 0,4
  23. 1220   PRINT USING"####年 ##月 ##日  ";PEEK(AD&,2);PEEK(AD&+2,1)                                                   ;PEEK(AD&+3,1);
  24. 1230   PRINT Y$(PEEK(AD&+4,1));"曜日"
  25. 1240   '
  26. 1250   PRINT USING"##時 ##分 ##秒 ##"                                                          ;PEEK(AD&+5,1);PEEK(AD&+6,1);PEEK(AD&+7,1);PEEK(AD&+8,1)
  27. 1260   '
  28. 1270 WEND
  29. 1280 END
  30.